home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 10011250 / var1045.dms / var1045.adf / InstallFonts < prev    next >
Text File  |  1978-02-14  |  762b  |  45 lines
  1. .k ""
  2. FailAt 20
  3.  
  4. set bcol0 "*E[40m"
  5. set bcol2 "*E[42m"
  6. set bold  "*E[1m"
  7. set nbold "*E[22m"
  8.  
  9. set font1 "Thin"
  10. set font2 "Tpz"
  11.  
  12. set font1t "$bold$font1.font$nbold"
  13. set font2t "$bold$font2.font$nbold"
  14.  
  15. Echo "*n     $bcol2 Fonts Installation Script $bcol0*n"
  16.  
  17. if not exists FONTS:$font1.font
  18.   echo "$Font1t ..." NOLINE
  19.   copy  fonts/$Font1#? FONTS: ALL QUIET
  20.   echo "Done*n"
  21. else
  22.   echo "$Font1t already exists in FONTS:*n"
  23. endif
  24.  
  25. if not exists FONTS:$font2.font
  26.   echo "$Font2t ..." NOLINE
  27.   copy  fonts/$Font2#? FONTS: ALL QUIET
  28.   echo "Done*n"
  29. else
  30.   echo "$Font2t already exists in FONTS:*n"
  31. endif
  32.  
  33. Echo "Installation complete.*n"
  34.  
  35. unset font1
  36. unset font2
  37.  
  38. unset bcol0
  39. unset bcol2
  40.  
  41. Echo "*E[3mClick the close gadget to continue! *E[23m*n"
  42.  
  43. Wait 2
  44. EndCLI >NIL:
  45.